home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / COMBINE.PGM < prev    next >
Text File  |  1994-08-22  |  504b  |  32 lines
  1. read combine
  2. DEFINE FOOD __________
  3. DEFINE ATE _
  4. ERASE COMBINED.REC
  5. Route combined.rec
  6. ATE = Hamburger
  7. FOOD = "HAMBURGER"
  8. WRITE RECFILE FOOD ATE
  9.  
  10. read combine
  11. DEFINE FOOD __________
  12. DEFINE ATE _
  13. Route combined.rec
  14. ATE = FRENCHFRIE
  15. FOOD = "FRENCHFRIE"
  16. WRITE RECFILE FOOD ATE
  17.  
  18. read combine
  19. DEFINE FOOD __________
  20. DEFINE ATE _
  21. Route combined.rec
  22. ATE = SALAD
  23. FOOD = "SALAD"
  24. WRITE RECFILE FOOD ATE
  25.  
  26. READ COMBINED
  27. RECODE ATE Y=+ N=-
  28. SELECT ATE = "+"
  29. FREQ FOOD
  30. BAR FOOD
  31. PIE FOOD
  32.